﻿''' <summary>
''' Noch nicht bearbeitet
''' </summary>
''' <remarks></remarks>
<Serializable()> Public Class KOAlexis
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefüllstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefüllstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "ALEXIS"
        Armee = Armeen.PC.ToString
        Musik = "Alexis"
        Bild = GetBildID()
        Select Case My.Settings.CommanderWarsGameMoodus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
                Gaben(1) = Gaben(0)
            Case CommanderWarsGameModi.AdvanceWars2
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDS
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
                KORange = 6
            Case CommanderWarsGameModi.CommanderWars2
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
                KORange = 6
            Case Else
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
        End Select
        KOname = Objektverwalter.KOS(Bild).KOBeschreibung.Name
        Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben

        KOLaden()
    End Sub

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        If OhneFunktion = False Then
            NeutraleBesetzungMachen(10)
            GetNeutralesGeld(500)
            BackbufferSpiel.AddAnimation("SCREENFLASH", 0, New Point, True, ObjektSpielfeld.TopLayer)
        End If

        GabeEingesetzt()
    End Sub

    Public Overrides Sub KOLaden()
        RepairON = ReperaturGebäude.AlliedAndNeutral
        Baugebäude = ReperaturGebäude.Own
        If My.Settings.CommanderWarsGameMoodus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafür sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
    End Sub

    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        If My.Settings.CommanderWarsGameMoodus = CommanderWarsGameModi.AdvanceWars Then
            If OhneFunktion = False Then
                NeutraleBesetzungMachen(10)
                GetNeutralesGeld(500)
                BackbufferSpiel.AddAnimation("SCREENFLASH", 0, New Point, True, ObjektSpielfeld.TopLayer)
            End If
            GabeEingesetzt()
        Else
            If OhneFunktion = False Then
                NeutraleBesetzungMachen(15)
                GetNeutralesGeld(1000)
                BackbufferSpiel.AddAnimation("SCREENFLASH", 0, New Point, True, ObjektSpielfeld.TopLayer)
            End If
            Baugebäude = ReperaturGebäude.AlliedAndNeutral
            GabeEingesetzt()
        End If
    End Sub

    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub
End Class

<Serializable()> Public Class KOBeschreibungAlexis
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Alexis"
        Fein = "Neutralität"
        Nein = "Einmischung"
        Beschreibung = New String() {"Alexis legt sich", "nicht gerne fest.", "Sie ist eher für", "Neutralität."}
        Stil = New String() {"Truppen werden auf neutralen und ", "verbündeten Gebäuden repariert."}
        Gabebeschreibung = New String() {"Gebäude werden neutral.", "und sie bekommt", "500 Fonds für jedes", "neutrale Gebäude."}
        SpezialgabeBeschreibung = New String() {"Gebäude werden neutral.", "und sie bekommt", "1000 Fonds für jedes", "neutrale Gebäude.", "Außerdem kann sie auf", "neutralen und verbündeteb", "Gebäuden bauen."}
        GabeKosten = 3
        Spezialgabekosten = 3
        Gaben = New String() {"Neutralität", "Neutrales Imperium"}
        Synergie = New Decimal() {}
        KONamen = New String() {}
        Doppelgabenamen = New String() {}
        Gabesätze = New String() {"Ich bin nicht gegen euch! Aber auch nicht für euch!" _
                                    , "Ihr habt keine Verbündeten mehr." _
                                    , "Meine Verträge werden erfüllt." _
                                    , "Wartet bis sie sich gegenseitig vernichtet haben." _
                                    , "Zeit sich auf eine Seite zu schlagen." _
                                    , "Ha! Ihr habt euch selbst erlegt. Ist das einfach!"}
        Siegsätze = New String() {"Neutral sein und doch gewinnen." _
                                , "Ich wollte diesen Krieg nicht." _
                                , "Ich bin auf keiner Seite, weil niemand auf meiner Seite ist."}
        Tauschsätze = New String() {"Macht euch nicht jeden zum Feind. Macht das so..." _
                                    , "Ich lege mich nicht fest aber..."}
        Doppelgabesätze = New DoppelGabesatz() {}
    End Sub
End Class
